delphi 通过webbrowser读取网页上确定标签ID的值

Edit1.text := ((wbmap.document as IHTMLDocument2).all.item('tname', 0) as ihtmlinputelement).value ...